<?php
/* 
 * ********* CVS HEADER ********* 
 * 
 * $RCSfile: admhtmlnew.php,v $ 
 * $Date: 2006/02/10 13:30:20 $ 
 * $Revision: 1.3 $ 
 * 
 * ********* CVS HEADER ********* 
 */
if((!isset($r))||$r<=0)
   $r=1;
// on recupere les donnees du repertoire courant.
$query="SELECT html_repertoire.* FROM html_repertoire,hierarchie WHERE html_repertoire.droit=hierarchie.id_groupe AND hierarchie.id_groupe_dessus='$session[id_groupe]' AND html_repertoire.id='$r'";
$result=rportalrequete($query) or rportalerreur("ERREUR : $query","?op=");
if(rportalnbresult($result)==0){
   header('Location: ?op=admhtmlnav&r=1');   
   exit;
}
$repertoire=rportalligne($result);
if($action=="new")
{
   	$query="SELECT * FROM html_type WHERE id='$type'";
	$result=rportalrequete($query) or rportalerreur("ERREUR : $query","?op=");
	if(rportalnbresult($result)==0){
		//le type n'existe pas
		header("Location: ?op=admhtmlnav&r=$r");
		exit;
	}
	$editeur=rportalligne($result);
	$creationNouvellePage = array();
	$creationNouvellePage['r']=$r;
	$creationNouvellePage['type']=$editeur;
	$creationNouvellePage['titre']=$new_titre;
	$creationNouvellePage['code']=$new_code;
	$creationNouvellePage['description']=$new_description;
	$creationNouvellePage['droit']=$new_droit;
	$_SESSION['creationNouvellePage']=$creationNouvellePage;
	header("Location: ?op=".$editeur['creer_op']);
	exit;
	
}

require_once('module/TPLN/TPLN.php');
$TPLN = new TPLN;
$TPLN->Open($op_basepath.'tpl/admhtmladd.html');
$TPLN->IncludeFile("header","environnement/$session[environnement]/header.php"); 
$TPLN->IncludeFile("footer","environnement/$session[environnement]/footer.php");
$TPLN->Parse("tid",$type);
$TPLN->Parse("rid",$repertoire['id']);
$TPLN->Parse("path",strtoupper($repertoire['path']));

$query="SELECT groupe.* from groupe,hierarchie,hierarchie AS h2 WHERE hierarchie.id_groupe='".$repertoire['droit']."' AND hierarchie.id_groupe_dessus=groupe.id AND h2.id_groupe_dessus='".$session['id_groupe']."' AND groupe.id=h2.id_groupe ORDER BY groupe.id ASC";
$result=rportalrequete($query) or rportalerreur("ERREUR : $query","?op=");
while($row=rportalligne($result))
{
	$TPLN->Parse("droit.gid",$row['id']);
	$TPLN->Parse("droit.nom",$row['nom']);
	$TPLN->Loop("droit");	
}
$TPLN->Write();
?>